home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGOSRC.ARC / STCALCG.ASM < prev    next >
Encoding:
Assembly Source File  |  1985-11-20  |  704 b   |  47 lines
  1.  
  2.     cseg
  3.  
  4.  
  5.  
  6.     public _calc_grav
  7.     ;calc_grav(sposition, dspeed, mass1)
  8.     ;sposition and dspeed are both pointers to 16 bit x,y coordinates
  9. _calc_grav
  10.     move.l    4(sp),a0
  11.     move.l    8(sp),a1
  12.     move.w    (a0),d0
  13.     muls    d0,d0
  14.     move.w    2(a0),d1
  15.     muls    d1,d1
  16.     add.l    d1,d0
  17.     swap    d0
  18.     move.w    12(sp),d1
  19.     ext.l    d1
  20.     tst.w    d0    ;strength of gravity here
  21.     beq        maxgrav
  22.     divu    d0,d1
  23. cg
  24.     move.w    (a0),d0
  25.     muls    d1,d0
  26.     bpl        cgp1
  27.     add.l    #$fff,d0    ; make +- shifts symmetrical
  28. cgp1
  29.     asr.l    #8,d0
  30.     asr.l    #4,d0
  31.     move.w    d0,(a1)+
  32.     move.w    2(a0),d0
  33.     muls    d1,d0
  34.     bpl        cgp2
  35.     add.l    #$fff,d0    ; make +- shifts symmetrical
  36. cgp2
  37.     asr.l    #8,d0
  38.     asr.l    #4,d0
  39.     move.w    d0,(a1)+
  40.     rts
  41.  
  42. maxgrav    move.w    #5,d1
  43.     bra    cg
  44.  
  45.     END
  46.  
  47.